home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44c.zip / RFR001.QM < prev    next >
Text File  |  1992-05-27  |  5KB  |  130 lines
  1. *                               rfr001.qm
  2. *               Macros To Single/Double/Triple Space Files
  3. *                        Written By Tom Hogshead
  4. *                       [ See RFRMxx.QM For Use ]
  5. *                                 5/30/92
  6. *  Key       Subfile                       Description
  7. * =====  ===============  ====================================================
  8. *  @1                     Single Space File  ( )
  9. *  @2                     Double Space File
  10. *  @3                     Triple Space File
  11. *  @4                     Make All Blank Lines In File Single Space,
  12. *                         Condenses for better readability
  13. *
  14. *          {e:\up\RFRM*}--Return To RFRMxx.QM
  15. *
  16. *-- eoi
  17.  
  18. * 
  19. * ------------------------------------------------------------------
  20. * @(1)  Single Space File, Requires Qedit v2.15
  21. * ------------------------------------------------------------------
  22. @1 macrobegin
  23.         Begfile
  24.         SetScreenOff                * Remove if not Qedit v2.15
  25.     CHK4BLANK:
  26.         Endline Begline             * Test if line has text
  27.     Jtrue  NOTBLANK:
  28.         Delline
  29.     Jtrue CHK4BLANK:
  30.     NOTBLANK:
  31.         Endpara Cursordown
  32.     Jtrue CHK4BLANK:
  33.         Begfile
  34. *
  35. * 20 bytes Wed  02-20-1991  16:48:58 (TH @f7)
  36. * 37 bytes Tue  07-02-1991  16:20:47 (TH @1, added windows)
  37. * 21 bytes Tue  10-08-1991  12:22:20 (TH @1, removed windows, added v2.15)
  38.  
  39. * 
  40. *----------------------------------------------------------------------
  41. * @(2) Double Space File, Requires QEdit v2.15
  42. *----------------------------------------------------------------------
  43. @2 Macrobegin
  44.         Begfile
  45.         SetScreenOff                * Remove if not Qedit v2.15
  46.     START:
  47.         Endline Begline             * Test if line has text
  48.     Jfalse DEL_BLANK:
  49.     INS_BLANK: Cursordown
  50.     Jfalse END:                     * If at eof, END macro
  51.         Endline Begline             * Test if line has text
  52.     Jfalse NEXT_LINE:
  53.         Insertline Cursordown
  54.     Jump INS_BLANK:
  55.     NEXT_LINE:  Cursordown
  56.     Jump START:
  57.     DEL_BLANK:
  58.         Cursordown                  * Test if eof
  59.     Jfalse END:                     * If at eof, END macro
  60.         Cursorup DelLine            * Delete second blank line
  61.     Jump START:
  62.     END: Begfile
  63. *
  64. * 38 bytes Fri  02-22-1991  13:22:05
  65. * 55 bytes Sun  07-14-1991  17:45:16 (TH @2, added windows)
  66. * 39 bytes Tue  10-08-1991  12:23:36 (TH @2, removed windows, added v2.15)
  67.  
  68. * 
  69. *-----------------------------------------------------------------------
  70. * @(3) Triple Space File, Requires QEdit v2.15
  71. *-----------------------------------------------------------------------
  72. @3 Macrobegin
  73.         Begfile
  74.         SetScreenOff                * Remove if not Qedit v2.15
  75.     INITIAL:
  76.         Endline Begline             * Test if line 1 has text
  77.     Jtrue START:
  78.         Delline
  79.     Jump INITIAL:
  80.     START:
  81.         Endline Begline             * Test if line has text
  82.     Jfalse DEL_BLANK:
  83.     INS_BLANK: Cursordown
  84.         Jfalse END:                 * If at eof, END macro
  85.             Endline Begline         * Test if next line has text
  86.         Jfalse DEL_BLANK:
  87.             Insertline Addline Cursordown
  88.     Jump INS_BLANK:
  89.     DEL_BLANK: Cursordown
  90.         Jfalse END:                 * If at eof, END macro
  91.             Endline Begline         * Test if line has text
  92.         Jfalse CONTINUE:
  93.             Insertline Cursordown
  94.     Jump INS_BLANK:
  95.     CONTINUE: Cursordown
  96.     NEXT:   Endline Begline         * Test if line has text
  97.         Jtrue INS_BLANK:
  98.             Delline
  99.         Jtrue NEXT:                 * If at eof, can't delete more
  100.                                     * than 1 blank line, then END
  101.     END: Begfile
  102. *
  103. * 62 bytes Sun  02-24-1991  13:33:59
  104. * 79 bytes Sun  07-14-1991  17:48:05 (TH @3, added windows)
  105. * 60 bytes Tue  10-08-1991  17:04:33 (TH @3, removed windows, added v2.15)
  106.  
  107. * 
  108. * ---------------------------------------------------------------------
  109. * @(4) Make All Blank Lines In File Single Space
  110. * ---------------------------------------------------------------------
  111. * This macro is handy for condensing files, so that there are
  112. * only single blank lines between text for better screen readability.
  113. * This macro requires QEdit v2.15.
  114.  
  115. @4 Macrobegin
  116.         Begfile
  117.         SetScreenOff                * Remove if not Qedit v2.15
  118.     CHK4BLANK:
  119.         Endline Begline             * Test if line has text
  120.     Jtrue  NOTBLANK:
  121.         Delline
  122.     Jtrue CHK4BLANK:
  123.     NOTBLANK:
  124.         Endpara Cursordown Cursordown
  125.     Jtrue CHK4BLANK: Begfile
  126. *
  127. * 21 bytes Wed  02-20-1991  16:46:39
  128. * 38 bytes Sun  07-14-1991  17:36:39 (TH @4, added windows)
  129. * 22 bytes Tue  10-08-1991  12:10:57 (TH @4. removed windows, added v2.15)
  130.